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IN THIS ISSUE 


The "Reginners Corner" is back this time. The 
one ain this issue was written by Howard 
Drake. He goes over the OSI Key Input 
routine in detail and alsa provides a simple 
calculator for use with any system. We've 
covered the Input-a-Key routine before, but 
never in this detail. From the questions that 
we have gotten this past month, it would seem 
that there are a lot of people interested in 
it. 

We also have yet another update to the 
Word Processor. This one is a routine that 
allows easier input of lower case letters. 

We’ve got a fun program that will dump out 
the BASIC Source Code so that you can see how 
each line actually looks inside the machine, 
and a Supertrace program. 

We also have a lot of material on Disks. 
About once a year we try to dedicate a large 
portion of at least one Journal to Disk 
ugera. We have instructions on modifying disk 
BASIC to use the features of the C1lE ROM, 
game notes on PICO DOS, a couple more disk 
modifications and improvements and 
corrections to some prior mods. We also have 
the story of one man who put on his own disk 
using a non OSI disk. We also have a couple 
of long articles on Speeding up Random Access 
Files on disk. 

We also have a lot of programs submitted 
by Stankewicz and Roabingsoan. S & R are the 
pair that did the excellent Night Rider, the 
original Maze, and several other goad 
programs for our Catalog. New they’ve 
contributed a couple interesting programs to 
the Journal also. 


WHAT*S NEW AT AARDVARK 


AARDVARK now carries D & N Micro Services 
boards and Mittendorf boards and kits. 

The D & N Micro products line is 
particularly recommended for the 48-pin buss 
OSI machines. We have been recommending 
their boards for so long we finally decided 
we had to carry them. The line runs all the 
way from combination memory and disk 
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controller boards that sell bare for $50 up 
to 24K agssembled memory and disk controller 
boards for $380. They also offer a lot of 
neat I/0 boards, a proto-type board, a 
backpane and even a neat little board that 
puts all of those onto a CIF. It’s an 
excellent line, and we’re proud to carry it. 

Mittendorf offers a number of interesting 
kits. Their most famous one is the Video 
Conversion kit for High Res Graphics for the 
CiP. We'll have a complete review of that in 
the next AARDVARK Journal. We have one in 
now, but we just haven’t had time to test and 
to write the article up for this issue. 

From the program side, we have a couple 
new games by that famous Stankewicz . and 
Robinson team that designed the original 


Minos game. The best new game is Night Rider 
($14.95). This is partially machine code 
high speed version of an old arcade idea. In 


it you see a road stretching out before you 
twisting and winding as you race your car. 
The graphics are excellent and very 
realistic. 

They have also now given us OSI GRAND 
($9.95). This charming little dittie was 
initially misnamed by the authors "DEAD 
BABIES". It emulates a hotel fire and gives 
you the job of catching people tossed off the 
roof and bouncing them into a waiting 
ambulance. When you miss they splatter 
beautifully and the only problem with it is 
that sometimes children tend to miss 
intentionally. 

The same team has come up with ai new 
arcade game called Galactic Debris, a good 
version af Fotato Chip Invasion. However q 
the game goes aon for many many variations and 
levels of difficulty and takes several days 
ta master completely. It is an excellent 
arcade piece. 

For digk users, we have an all machine 
code full screen editor for the CiP MF. This 
one was done by Dave Pompea who has written 
frequently for this Journal. It igs available 
on the new Stuperdisk for the CIP for $24.95. 
It is also available to people who have 
previously purchased the old Superdisk for 
$9.93. It certainly does make the CIF a much 
more usable machine. 


REGINNERS CORNER X 


OSI KEY INFUT & OTHER IDEAS 
RY HOWARD G. DRAKE 


XNOTEX (We have been over this before in 
various places, but this is the best 
explantion yet of the valuable trick.) 


"Thats so simples Why didn*t OSI 
tell us" 
OSI*s polled keyboard is a very 


powerful tool. However, when I bought 
my C2-4F over two years ago, there were 
no instructions on how to use this 
keyboard. IT had had my 2F for two 
months before I heard about the OSI 
Graphics Manual. This manual shows how 
to scan the keyboard from a BASIC 


program by POKEIng and PEEKing values at 


memory location 37088. ‘(If this doesn’t 
sound familiar, immediately call your 
OSI d@aler and agk for the graphics 
manual.) This method using location 
37088 is okay if only a few different 
Values must be inputted and real time 


operation is required. However, if 

real time operation is not required 
there is a simpler method that I prefer. 
This method makes use of a routine in 

ROM. The code required iss 

190 POKE11,O:POKE12,253: X=sUSR(X): 

AZBPEEK (S31) 

To see how this 

this simple program. 
190 FPRINT"PLEASE HIT ANY KEYS" 

110 PRINT'O-9,A-Z,0OR PUNCTUATION MARKS" 
120 POKE11,O:POKE12, 253 

130 X=USR(X) sA=PEEK (S31) REMPEEK (9834) FOR 

C4PMF, (9815) FOR CIiPMF 

140 PRINTA, CHR (A) 

150 GOTO1S0O 

160 REM FOR DISK ELIMINATE LINE NO. 120 

AND REPLACE USR‘(X) WITH DISK! "GO 

2oeR" IN LINELSO 


works, enter and run 


This method is not new and has 
appeared in several of the small OST 
related newsletters. (The place I first 


Saw it was in the AARDVARK Catalog.) 
However, in this article I[’ll pursue the 
ideal further and show an application. 


HOW IT WORKS 


ROM is a routine 
that scans the keyboard and stores the 
ASCIT value of the key pushed at memory 
location S31 decimal. Ry using the USR 
function in BASIC, we can jump to this 
&lready written routine in ROM. This 
routine scans the keyboard until a key 
igs pushed. There is no time limit as to 
how long this routine will sit and wait 
for akey to be pushed. (Thus this 
method is not suited to real time action 
games.) When a key is pushed the ASCII 
Value of the symbol on the key top is 
computed and this value is stored at 
location S31. Control then returns back 
to the BASIC interpreter and our 
program, All we need to do then is to 
se@ what value is stored at location S31 
by using the PEEK function. 


In the monitor 


The USR function transfers control 
from a BASIC program to a machine 
language subroutine whose starting 
address is stored in memory locations 11 
and 12. Thus before calling the USR 
function in line 130, we must store the 
starting address of the keyboard scan 
routine ain memory locations 11 and 12. 
This is done in line 120, 

Try running the program above and 
hit the return key, then try the line 
feed key. Change line 140 to: 140 PRINT 
A sand run again and try the return and 
line feed keys. Now change line 140 back 
tos 140 PRINT A,CHR®(A) & and type RUN. 
Release the shift lock key and then push 
various keys. Table 1 shows the value 
stored in location S31 for all key 
depressions with various combinations of 
the shift keys. All these powsible 
Values mean a lot of information can be 
inputted with a single keystrokes. 


A SIMPLE CALCULATOR 


The program in listing 1 simulates. 
a Simple caluclator and makes use of the 
key detection method described above. 
This calculator has normal algebraic 
heirarchy 1.€. it completes any pending 
multiplication or division operation 
before completing addition or 
subtraction. This program scans the 
keyboard, branches to the appropriate 
subroutine when a key is pushed, 
performs an operation and displays the 
results. 


TO RUN 


1. TYPE PROGRAM IN, 
BASIC PROGRAM 
eo TYPE RUN 
oe LEAVE THE SHIFT LOCK KEY DOWN AND DO 
NOT 
PUSH THE SHIFT KEYS WHILE USING 
4, TO ENTER O-9 AND DECIMAL POINT ¢.) 
PUSH THAT KEY 
o« POR + PUSH THE +3 KEY 
FOR ~- (MINUS) FUSH THE =-KEY 
FOR X FUSH THE kK: KEY 
FOR —m PUSH THE Y/ KEY 
FOR = PUSH THE «<, KEY 
PUSH RUB OUT ONCE TO CLEAR ENTRY 
PUSH RUB OUT TWICE TO CLEAR ALL 
6& FUSH CTRL C TO EXIT PROGRAM 


AS ANY STANDARD 


In addition to the 
routine, this program has 
ather tricks that are useful. The first 
trick ais that several different machine 
language routines may be called from a 
BASIC program with USR. To do this 
simply FPOKE the appropriate starting 
addrress in locations 11 and 12 before 
calling USR. The second trick is 
storing a machine language routine in 
memory locations 5346 to 768 This area 
is not used by RASIC. 


key detectian 
a couple of 


SIMPLE CALCULATOR #1 


10 REM..GIMPLE CALCULATOR REV 02 

11 REM..HOWARD G. DRAKE 

12 GOSUB 100 

13 POKES46832,0:REM..DELETE FOR CiP 

14 L=1:D=$4026:V=12Z=01W=OrF=1:GeliR=O1E=0 
16 POKED+5,48:1S¢="" 

18 POKE11,0:POKE12, 253:U=USR(U) :A=PEEK (531) 
20 IFA#1i27 THEN GOSUBR 170:R=R+i:0N R GOTO 
14,14 

22 ReO:B=A-43:IF Bei GOTO 18 

26 ON BH GOSUB 80,50,350,70, 30,30, 30, 

30, 30, 30, 30, 30, 30, 30, 60, 40 


28 GOTO 18 
SO IF Ei THEN [St#=""sE=O:REM.. BUILD NUMBER 
STRING 


32 IF IS¢="" THEN GOSUB 170:L=1 

34 IS$=IS$+CHR$ (A) sPOKE D+L,ArL=L+isRETURN 
40 WeVAL (IS) 1Z=Z+FXYAW'G:GeliFedsVods 
REM. .ADDITION ROUTINE 

42 IS¢=""s7¢=STR$(Z):GOSUB 170 

44 FOR Lei TO LEN(Z#) :POKE 

D+L, ASC (MID$(Z%,L,1)):NEXT L 

46 RETURN 

SO WeVAL (IS%) :Z@Z+FXYKW'G:GeiiFe—isVeds 
REM. ..SUBTRACTION ROUTINE 

52 [S¢=""s7$=STRe(Z):GOSUB 170 

S4 FOR LbL=i TO LEN(Z#):POKE 

D+L., ASC (MID$(Z#%,L,1)) 2NEXT L 

Bé RETURN 

60 W=VAL (1S$) :Y=VYAW°G:G=1isREM..MULTIPLICATION 
ROUT INE 

62 ISt=""s7¢=STRE(Y) sGOSUB 170 

64 FOR Lei TO LEN(Z#):POKE 

D+L, ASC (MIDS (Z$%,L,1)) #NEXT L 

64 RETURN 

70 W=VAL (1S) :Y=YAW°G:G=—-1:REM. .DIVISION 
ROUT INE 

72 [St=""s7$=STRS(Y) :GOSUB 170 

74 FOR L=i TO LEN(Z#) :POKE 

D+L, ASC (MIDS (Z%,L,1)) NEXT L 

76 RETURN 

go 

WaVAL (IS#) sW=Z+FPXYRW°G:GeliFeisY¥=1:Z=O:REM..= 
ROUT INE 
92 IS¢=STR#(W):E=1:GOSUB 170 

84 FOR L=1 TO LEN(IS$) :POKED+L, 

ASC (MIDS (IS#,L,1))aNEXT L 

86 RETURN 

100 RESTORE: REM..MACHINE LANGUAGE SCREEN 
CLEAR ROUTINE | 

110 FOR L=744 TO 767:READ MsPOKE L,M:NEXT L 
120 DATA 

169, 32, 160,8,162,0,157,0, 208, 232, 208, 250, 238 
130 DATA 

240, 2,136,208, 244,169, 208,141, 240, 2,96 

170 POKE 11,232:POKE 12, 2:UsUSR(U) sRETURN 
200 REM..VARIABLE TABLE 

210 REM..L-SCREEN LOCATION MARKER 

220 REM. .D-SCREEN LOCATION 

230 REM..Y-FIRST OPERAND FOR MULTIPLICATION 
AND DIVISION 

240 REM..Z-FIRST OPERAND FOR ADDITION AND 
SUBTRACTION 

250 REM..W-VALUE INPUTTED 

260 REM..IS$-STRING INPUTTED BY OPERATOR 
270 REM..F-FLAG FOR ADDITION OR SUBTRACTION 
280 REM..G-FLAG FOR MULTIPLICATION OR 
DIVISION 

290 REM..R-FLAG FOR "RUB OUT" 

300 REM..E-FLAG FOR = 


E. STODDARD, GRAYSLAKE, ILLINOIS 

How do I get my 65D-V3 to print out the 
zero in the second decimal place when 
I’m using it to generate price sheets”? 
An example iss 

LIST PRICE IS $41.35 DISCOUNT I[S 40% 
COST [$s $25.10 
Printer prints $25.1 


Dear Mr. Stoddard: 

The solution to your problem is to use 
the STR®(X). It works like this. If you 
assume that (A) is a number that you 
want set into dollars and cents, then 
wee lines like these: 

100 AS=STRS (A) 

110 TFINT(A/100) =8/ LOOTHENAS=A$+", 00" 
GOTOLSO 

120 IFINT(A/10) =A/ LOTHENAS=AG+"O" 

150 PRINTAS 

That should add the O’s right. 


BERND FPENNEMANN, GERMANY 


I have found some mistakes in the 
AARDVARK Journal, Vol.1, No.4, page 15. 
The listing includes "GOTOZ30" in the 
lines 580 and 660 which should be 
replaced by "GOTO2Z40", 


Thanks for the adventure game article, 
but the listing seems to be worthless 
without a table of the cammands 
("GO...") and an explanation about what 
can happen to you and what must be done 
("find a bomb.."). 


Most of us know the Input-without-scroall 
from the AARDVARK catalog which replaces 
the GET-command used in other BASICs. 
If you want to use this replacement 
together with your home-brewed oar 
bought editor, use: 

"Ye PEEK (536) sPOKELI1, Xs X=PEERK (S37) 3 
POKE12, Xs X=USR(X) " 

Something like "POKE11,PEEK(S36)" does 
not work, because both, PEEK and POKE, 
use the Vector 11,12. Therefore, the 
location 11 (dec.) will be unchanged. 


Some BASICs have a very good feature 
which can be used in Word Frocessing 
much more satisfactory than the 
INFUT-statement. It is called LINE 
INPUT. With this feature used, you can 
input a whole line including quotation 
marks and commas to a string variable. 
Of course you can enter only one string 
per line. The following routine 
simulates this command and will not go 
to the direct mode of BASIC if you press 
RETURN after the "?" appears; instead, 
the string will be empty. 


10 POKE11,89sPOKE12, 163:sPRINT'?"' 33 
X=USR(X)sX=19 
20 IFPEEK (XxX) < >OTHENAS=A$+CHRS (PEER (X)) 3 
X=X+13:GOTO20 
This routine will branch to the 
input-a-line routine located in ROM at 
ASS 7 . Then it will search through the 
input-buffer, starting at $O013 and 
adding up all characters in AS until a 
#00, which is the end-off-lLine 
indicator, is found. 

Dear Mr. Fennemann: 

One of the pleasures in playing 
Adventures is to discover what words 
work. Same goes for the purpose of the 
game. Discovering wht you have to do is 
part of the pleasure of exploration. 
Some other authors of OSI Adventures do 
include a listing of keywords but their 
Adventures can often be solved in 3 to S 
hours. I think that spoils the fun. 


CHARLES HEPNER, STERLING HTS., MICHIGAN 
(This program is a lot of fun to play 
with - and may be even be instructive!) 


For sametime now I have been dumping 

memory in various formats. One of which 
is in BASICLine orientation. The two 
listings are for BASIC MEMORY DUMP and 


10 REM MOD OF HEX MEM DUMF 
15 REM BASIC LINE DUMP 

20 INPUT"BEG LINE#"s& 

40 INPUT"END LINE #" 96 


an Output from the Execution of the 
program. The program prints the line 
numbers of the BASIC lines in both 
decimal and Hex. This program | 
illustrates how basic lines with their 
pointers are stored in memory. 


BO A=PEEK (121) X256+PEEK (120) :REM BASIC IN ROM A=769 


60 H$="O123456789ABCDEF " 


70 LN&PEER (At+3) X256+PEEK (A+2) s TFLNSETHENPRINT'NEXT LINE="s LNs END 
80 PTR=PEEK (A+1) K256+PEEK (A): TFRPTR=OTHENEND 


90 IFLN< ATHENAFFTRs GOTOO007O 


100 PRINTLN: TABC7) 3: D=ArsL=4:GOSUBOO170:FPRINT" "sslLe2 
110 N=PTR-A:REM # BYTES TO PROCESS FOR CURRENT LINE 
120 FORZ=1TON: D=PEEK (A) :A=A+1LsPRINTTAB (7) sGOSUBOO1L70 


130 IFZ=2ORZ=4THENPRINT" "5 
140 [FZ*2=S8THENPRINT 

ISO NEXTZ:A=A-NS REM?" 5 

160 PRINT?A=PTR:s GOTQQ00070 
170 Ce": Xa 


180 O=INT(D/16) sH=D-(Qk16) 2 D=Q: X=X+i 


190 CH=MID# (Ht, H+1, 1) +08 
20OQO IFQ?00RX«< @LTHENOOL BO 
210 PRINTCS#s 

220 RETURN 


SAMPLE RUN 


REG LINE#? 10 
END LINE #7 220 


1O SI7F 9931 OAOO BEZO4D4F44204F 4620484558 204D454D02044554D5000 

iS 3199 AFSL OFOO BE204241534943204C494E452044554D5000 

aw SLAF C2351 1400 B422424547204C494E 452522 3R4200 

AQ S1iC2 D631 2800 S4224S4E44204C494E 452023 223B4500 

wt) SiD& OS32 B32ZOO 41 ABRRRZES1 S251 29ASS2ISI6OASRRZES 1 SL30LZ9SABELZO424153 
AP4SS2ZO494E 205 24F 4D20413D37363900 

40 S203 i1D3S2 SCOO 4824AR225031323334353563738394142454445462200 

79 Seid 4F32 4600 4C4EARBR2Z8414 29 ASS23S53S6ASRB284 1 ASS22935AB8A4C4ERA 
4358097 224E 455854 204C494E 45 3D22S5R4C4ESA8000 

BO S24F 7OS2 SOOO SOS4S2ARRR2941AS3129ASS 2353605882841 29 3A8AS0S452ABR 
SOAROQBOOO 

90 3270 B732 BAO BASC4EACS2ZAO4SIABRSOS4S235AB8 305030357 3000 


100 3287 ADS2 6400 974C4ESR9C37293R35A44AB4 1 SASCABRS4SSABCSO303 137303097 


222022 SR SA4TCARSLZOO 


Le SB2ZAD DFS2 6E0O 4EARSOS452044 1 SABE 202s 204 259544553 20544F 2050524F 44 
43S 3S3204464F 52204 3555 252454ES4204C494E 4500 
120 BeDF O333 7800 BLISAARSIID4ESA4S4ABRRR284 1 29SA41ABSIASSISAI7TICS72L9SA 


BCSO3031373000 
130 S303 1633 8200 BASAABSZAPSAARS4AN9 722202235800 


140 S316 2433 8C0OO BASAASSZABSS3BAN9700 

150 eoe4 S735 9600 B2SASA4 1AR4SIAS4E SABE SF 22203B00 

160 S857 4833 ANNO I7SA41LABSOS4S25AB8 3050503735000 

170 S34A S833 AAOO 4324AR2Z2225ASBARS 100 

180 S358 7833 B400 SLARAEZB44A6S5 1 S6295A4BAB4S4A4 285 LASSLS6OR295A44ARS 134A 


VBARSBASS LOO 


190 S378 91335 REOO 43524ABCS2848242C4RASS12C3S129ARS4352400 
200 S391 AS3S CBOO BAS LTAASORISBACABR4SCANSNS031383000 


210 SSAS AESS D200 9743243B00 
arise) SSAE B433 DCOO 8DOO 
NEXT LINE= 17021 


OF. 


\ 


CHANGING THE *“OK* FROMPT 
BY GREG WILDER 


Are you BASIC IN ROM users tired of 
seeing the famous “OK? prompt after all 
immediate mode commands. If $6, run 
this program first. (It will erase and 
leave a machine code program behind.) 


The routine will accept any word, name 
or punctuation mark as a prompt. Now 
you can have READY’, ’C1iP ON-LINE*, or 
even an "kX" as a prompt. The routine 
resides im the highest available RAM and 
uses 25 bytes of memory plus the length 
of the prompt. 
ALTER FROMFPT ROUTINE 


10 INPUT"ENTER PROMPT") PR:L=LEN (PRS) 

20 POKES, 76:POKE4, 240:POKES, 28 

3O FORX=7408T07423: READA: POKEX, A:NEXT 

35 

POKE134, (PEEK (134) -1) :POKE133, 256-25-L 

40 BA=7402-L1FORY=1TOLEN (PR®) : POKEBA+Y 
ASC (MIDS (PR®,Y,1)) #NEXT 

50 

FORX=BATOBA-3STEP-1:READA: POKEX, As NEXT 

S55 POKE7403, 13:POKE7404, 101POKE7405, 13: 
POKE7406, 10:PQKE7407,0 

50 DATAIG2,0, 189, 224, 28, 240,6, 32 

70 DATAZ38, 255, 232, 208, 245, 76,201,168 

75 DATA1O, 13,10, 12 

80 POKE7411, 231—-Ls NEW 


MARE GUZDIAL, ROYAL OAK, MICHIGAN 
Congratulations on your Compiler. I 
think it’s great news, but what is the 
minimum system configuration? In other 
words, I want one badly, but will it run 
on my 8K cassette-based CIP? 

First, in Bob Retelle’s article on 


memory saving in the Oct. 8O° issue (rT. 


know thats a long time aga) he mentions 
207 bytes he found for USK use fram 
$O130 to #$O1FF. Because the 6502 stack 
painter is one byte long with a ninth 
bit added which is permanently one, all 
of page one igs 6502 stack space. Since 
the stack builds down, and Basic 
initializes it to #0O1FE, lower addresses 
im the $O1XX section of memory may be 
safe, but you always run the risk of the 
6502 overwriting your memory if 
subroutines go too deep, or Basic uses 
RPN on an extensive computation, oar any 
other extensive use of the stack. 

Secondly, you might mention that 
the programs presented by Charles A. 
Stewart in the last issue of the Journal 
are very efficient memory relocators, 
they are not program relocators. Nowhere 
does he try to reconcile jumps, jump to 
subroutine, or branches in the memory 
moving, #60 the programs he moves 
(assuming machine language programs) 
will probably not run at the new 
address unless they’ ve been designed far 
relocatibility. 


Dear Mr. Guzdial: 

Yes. The Compiler will run in 8K, but 
it takes 5.7K leaving only 2t+k far both 
source and object code-about enough for 
a USR(X) routine. 


MODIFICATION FOR LETTER WRITER 
BY STANLEY HARSHF TELD 


This modification enables the use 
of the upper/lower case OSI character 
generator, without messing around with 
the Shift Lock key. In the upper/lower 


mode, it converts the keyboard to a 
standard typewriter keyboard, UB1LNG 
either the Right or Left shift keys for 
Caps. For capitals © and WN, use the 


left shift only, as one would normally. 
When the Right shift is used with these 
two keys, the backspace and up arrow 
functions are enabled. 

There are two versions. 
Unfortunately, due to the special DOS 
software, its version is somewhat 
different. 

Incidentally, note the corrected 
PEEK values in both versions from those 
gQiven in BATTLEFLEET. 

Alternately, Lines 90-105 could be 
accessed aS a subroutine, located at the 
beginning of the program, to allow all 
string inputs throughout to be 
upper/lower case. 

UPPER/LOWER KEYBOARD ENTRY 


64 REM CIP ROM VERSION 

65 POKE11,0:POKE12, 253 

66 PRINT"IS THIS TO BE: ":PRINT:PRINT" 
1°UPPER CASE ONLY" 

&7 PRINT" 2>UPPER/LOWER 

CASE" sPRINTsPRINTs INPUTTO 

90 Ag=""s PRINT" COMMAND: ": ONTOGOTOLOS 
91 X=USR(X):P=PEEK (531) 

92 IFP=1L3THENLO2 

93 O=PEEK (57088) : [FQ=252ANDP=94THENIOL 
94 IFQ=252ANDP=95THENIS 

995 IF Q=2500R0=252THENS9 

96 IFP>S40NDP91THENP=P+32 

97 GOTOLOD 

99 PRINTCHR# (95) ,:AS=MIDS (AS, 1, 

LEN (A$) ~1):GOTO91 

99 IF P>BOANDP< 107 THENF=P~16 

100 IFP=44THENP=80 

101 PRINTCHR# (P) :2AS=AS+CHRE (FP) 1GOTO9L 
102 PRINT:GOTO105 

103 INPUTAS | 

104 IFLEN (AS) <1 THENA® (L) =A®rL=L+is 


105 ITFASC (A$) =94THENL2O 


64 REM CiP-MF VERSION 
65 POKES955, 43:FPOKE89S546, 37 

b& PRINT"IS THIS TO BRE:"sPRINTs PRINT" 
1*UPPER CASE ONLY" 

47 PRINT" 2>UPPER/LOWER 

CASE" sPRINT: INPUTTO 

90 Ag=""sPRINT:PRINT"COMMAND: "': 
ONTOGOTOLOS . 

91 Xs#USR(X) :P=PEEK (9504) 

92 IFP=iSTHENLIO2 

93 IFP=764THENS7 

94 Q=PEEK (57088) : IFO=252ANDFP=94THENLOL 
95 IF Q=2500R0=2520R0=2550RQ=218THENS9 
94 IFOQ=220ANDP=95THENPRINTCHRS (8) 33 
AS=MIDH (AS, 1,LEN(AS)—-1) sGOTO91 

97 IFPS64AQNDP<91 THENP=P+32 

98 GOTO100 

99 IFFSBOANDP< LO7THENP=P-—16 

100 IFP=54THENP=80 

101 PRINTCHR# (P) s sAS=AH+CHRE (FP) sGOTOPL 
102 PRINT: GOTO1OS 

103 INPUTAS 

104 IFLEN (A) <1 THENAS(L) =AtrL=L+1: 


105 TFASC (A$) =S4THENIT 20 


REVISION FOR SINGLE STEP TRACE PROGRAM 


SINGLE STEF TRACE AND LISTER PROGRAM 
RY TODD BAILEY 


The BASIC TRACE program in the CiE 
Monitor ROM handbook gave me an idea for 
a Single Step Trace and Lister program. 
This program intercepts the call to the 
"CTRL C" check asin the handbook’s 
program. Hut I have added a call to the 
get key subroutine so that the program 
Will wait till a key is pressed before 
executing the next instruction. A flag 
was added at dec.220 for no trace, full 
time trace, or Single Step Trace. The 
program also checks for which key was 
pressed in the Single Step mode. A "CTRL 
A" will execute one step with no line 
number display. A "CTRL S" will execute 
& step and display its line number (CTRL 
and just about any other key pressed 
Will do this also). The "CTRL C" works 
as before. Ry pressing and holding 
"CTRL A" or "CTRL S" you can step 
through your program as long as you hold 
the keys down. Releasing the keys will 
Stop program execution. | 

The "CTRL A" function in the Single 
Step mode can also be used to control 
listing. Type in "LIST" and hold down 
the press it again to continue your 
listing. 

The program itself can be relocated 
anywhere ain memory. However, setting up 
the vector to the program can be a job! 
To get the vectors with POKES, you must 
either position the program so that you 
can change the vector with a single 
FOKE, or place a RTS at the location to 
which the vectors will be pointing 
between your two POKEs. Otherwise your 
first POKE statement will be executed, 
the computer will jump to wherever the 
vector then points for a "CTRL C" check 
and will jump to garbage and never get 
to your second FPOKE statement. Another 
way eround this would be to use a USR 
call to jump to ao short machine code 
program to set up both vectors at once. 

Listing one and two are the 
Agsembler listing of the program for the 
OSI ROM and CiE ROM. Listing three and 
four are Basic POKE programs. Again, 
one for OSI’s ROM and one for the CIE. 

Another neat thing that I have 
found to use the CiE ROM for is in run 
running BASIC with the Assembler/Editor. 

You can load in the Assembler and use 
the block move command to move it up to 
the top of memory. When you cold start 
in Basic set the memory size below where 
you stashed the Assembler. Then, if you 
want to use the Assembler later, use the 
Block move again to put it back where it 
belongs and go from there. One of these 
days Io am going to relocate the 
Assembler go that I don't have to play 
these games! ! 

I changed the jump to print the 
line number from @B953 to ¢B95A to 
bypass the printing of "IN LINE" before 
each line number. It looks nicer this 
WAY » 


LISTING #1 
1g Q0O0 ;SUPER TRACE FOR OSI 
MONITOR 
20 OOOO CHECK TRACE FLAG 
39 0000 ABDC LDA $DC sGET FLAG 
40 OOO2 (CIOl CMF #$01 s COMPARE TO 
ONE 
50 0004 FOOR REQ PRLN 3s FULL TRACE 
60 0006 900C HCC END 3§NO TRACE 
7O OOO a TRACE ROUTINE 


JSR $FDOO 3GET KEY 
CMP #03 s1S IT AC. 


89 9008 2O00FD 
7O OOOR CFOS 
ee 


100 QOOD FOOS REQ END sNORMAL CTRL 
C 
110 QO0OF 9OO3 BCC END 3:15 IT AN A 


a 

120 OO11 2OSAR9S PRLN JSR @B895A sDISFLAY 
LINE NUMBER 

130 0014 4C9BFF END JMP $FF9R 3sEXIT TO 
CTRL C 


LISTING #2 


1QO O000 ;SUPER TRACE FOR CIE 

20 OO00 RCHECK TRACE FLAG 

30 OOOO ASDC LDA $DC §GET FLAG 
40 9002 C9O1 CMP #$01 COMPARE TO 
ONE 

wo O004 FOOR REQ FPRLN gFULL 
TRACE 

40 0006 9FO0C BOC END NO TRACE 
79 9008 TRACE ROUTINE 

BO 0008 BZOOOFD JSR $FDOO 3sGET KEY 

90 OOOR C9OS BCC END 21S ITAC 
. 

LOO OQ0O0D FOOS REQ END : NORMAL 
CTRL C 

L110 OOOF 9003 BCC END s1S5 IT AN A 


? 

120 O0O11 2OSAR9 FPRLN JSR $B9SA 3sDISPLAY 
LINE NUMBER 

130 0014 4C94FB END JMF $FB94 sEXIT TO 
CTRL C 


LISTING #3 


10 REM-SUPER TRACE & LISTER FOR OSI 
MONITOR ROM 

20 REM-POKE220,0 FOR NORMAL OPERATION 
SO REM-POKE220,1 FOR FULL TIME TRACE 

40 REM-POKE220,2 FOR SINGLE STEP TRACE 
SO  REM-IN SS MODE CTRL A EXC ONE STEP 
AT A TIME/NO LINE DISPLAY 

60  REM-AND CTRL § EXC ONE STEP AND 
DISPLAYS THE LINE NUMBER 

70 REM—CTRL A MAY ALSO BE USED IN A 
LISTER FUNCTION, JUST TYPE IN LIST 

80  REM~AND PRESS AND HOLD CTRL A TO 
LIST AS MANY LINES AS YOU WANT- 

90 REM-RELEASE CTRL A TO STOP THE 
LISTING, AND PRESS IT AGAIN TO- 

100 REM-RESTART YOU LISTING— 

110 FORA= 667 TO 689 :READ B: 
POKEA, Bi NEXTA 

120 POKE220,0: POKES41,2 

130 DATA1I65, 220, 201,1, 240,11, 144, 
12,32,0,253,201,3 

140 DATA240,5,144,3, 32, 90,185, 


76,155, 255 


LISTING #4 


10 REM-SUPER TRACE & LISTER FOR CiE 
MONITOR ROM 

20 REM-POKE2Z20,0 FOR NORMAL OPERATION 
=O REM-POKE220,1 FOR FULL TIME TRACE 

40 REM-POKE220,2 FOR SINGLE STEP TRACE 
Ss?) REM-IN $8 MODE CTRL A EXC ONE STEP 
AT & TIME/NO LINE DISPLAY 

40 REM-AND CTRL & EXC ONE STEP AND 
DISPLAYS THE LINE NUMBER 

7¢) REM-CTRL A MAY ALSO BE USED IN A 
LISTER FUNCTION, JUST TYPE IN LIST 

BO REM-AND PRESS AND HOLD CTRL A TO 
LIST AS MANY LINES AS YOU WANT- 

9¢) REM-RELEASE CTRL A TO STOP THE 
LISTING, AND PRESS IT AGAIN TO- 

100 REM-RESTART YOUR LISTING- 

110 FORA=660 TO 482 :READ 

Bs POKEA, Bs NEXTA 

120 FOKE220,0 :POKES41,2 

L3O DATALIGOS, 220, 201,1,240, 11,144, 

12, 32,0, 253, 201,3 

140 DATAZ40,5, 144,35, 32,90, 185, 74, 

148, 251 


CORRECTION , JAMES SCHAFER, IOQWA 


The hardware mod, "Making Your Disk 
Quiet" by Dave Pompea, found in last 
manth’s Journal, needs a touch up before 
it will work. 


Pins 6& and 7 of the 74123 are 
reversed. 


(R) should be pin 7 and (€) should 
be pin 6. 


ae The (motor on) signal willnot reach 
the disk 


until you aingetall a jumper across 
the two 

pads in position 4 of the disk 
interface 

connector board. 
Thanks to Dave’s mod, my disk can be on 
for long periods of time without 


unnecessary wear on my diskettes and 
drive. 


CRAIG LINDBLAD, MESA, ARIZONA 


I have been disappointed at how little 
has been written about PICO DOS. I am 
still waving up ta buy the QOS6SD 
operating system but feel that PICO DOS 
has use for the programmer such as quick 
loading of files which you use often. 
(checkbook balancing, games, etc.) I 
have discovered after PEEKing and 
POKEing around, how to get back into 
PTCO DOS after hitting the BREAK key and 
warm starting. The following POKES will 
do its 


POKES42, 153: POKES43, 37: POKES44, 1643 
POKES4S, 37. 


You can now use your SAVE and LOAD 
commands as before. Come on you PICO 
DOS users —- let's come Up with some 
documentation. P.S. Start by POKEing the 
first alue only to test for an error 
(Te? SH aac] E » It will save time having to do 
it all over again. 


Fer CIP oRDLpERBOARO 7 
sta fe O. 


Dear Mr. Lindblad: 

Did you know that PICO DOS will store 
machine code? Assemble the code below 
Bk, boot up the PICO DOS and "SAVE". To 
make it self starting, FOKE the start 
vector (HH,LL) into locations O1 and Oc. 
P.S. Dave Edson figured out how to do 
it. 


THOMAS OWEN, MIAMI FLORIDA 


When conversion has been made ta 2MHZ 
system operation (CIP) you will 

encounter errors when trying to write to 
a disk because the transmit clock has 
doubled from 125KHZ to 250KHZ. Leave 
system at 2MHZ and add the flip-flop to 
divide it back down. All disk 


operations will work fine after this mod 
has been made. I know a lot of people 
who have doubled their speed on a Ci and 
after adding disk could not understand 
why it wouldn’t work at 2MHZ. 


RANDOM ACCESS FILES 
BY DICK SNELL 


IT had an application where I needed 
to use large random access files (I 
needed thirty-nine tracks worth), but 
the DOS for my C4P-MF (with 24K) was 
inadequate. It had the following 
drawbacks, First, the CREATE program 
wouldn’t let me start a file below track 
12 (I wanted to uge a data-only disk and 
start an track one). Second, the DOS 
limits you to record lengths of powers 
of two (8,16,32,64,etc.) and I never 
could get the different record lengths 
to work consistently. TI wanted to use 
record lengths of 27 bytes (plus one 
byte for the carriage return at the end 
of every record written to the buffer). 
Third, the DOS is too slow. It rereads 
a track into the buffer even though that 
track is already in the buffer. 

The following system overcomes all 
of these drawbacks. It might loaak 
complicated at first, but it is powerful 
and worth using, especially if you need 


record lengths other than powers of 
two. 


First, let*’s look at the 
housekeeping that has to be set up in 
the early part of the main program. 
Don't forget to put a buffer in front Of 
your program (use the CHANGE program) . 


110 RL=28:B1=12926:NRPT=INT (2048/RL) 5 
NBUPT=RLANRPT 

112 HC=256:FT=20 

1144 S#="CA S27E="+RIGHTS# (STRE (CLOO+FT) 
s2re",1"s DISK! SS 

116 CT=FTeNT=FT 


In line 110, RL is the Record 
Length in bytes (plus one byte for the 
carriage return symbol). In this 
example, RL is set to 28 since I wanted 
records 27 bytes long. Hi is the first 
memory location for buffer #1 
(142926=6327E). NRPT is the Number of 
Records Per Tracks it ais equal to the 
number of bytes per track (2048) divided 
by the record length in bytes. NBUPT is 
the Number of Bytes Used Per Tracks; it 
ig equal to the record length in bytes 
multiplied by the number of records per 
track. For this example, NRPT=73 and 
NBUPT=2044, which means we "waste" four 
bytes for each track. As you experiment 
with other record lengths, you'll see 
that the number of "wasted" bytes per 
track varies quite a bit. 

In line 112, HC is a constant used 
later in hexadecimal conversions. FT is 
the First Track in the file; for this 
example I am using track 20 as the first 
track. 

Line 114 brings the first track of 
the file into the buffer. This is 
equivalent to the DISK OPEN command. 
Line 116 sets CT and NT equal to the 
firet track. CT is the Current Track in 
the buffer. NT is the New Track which is 
to be brought into the buffer. 

Next let’s look at the subroutine 
which actually does the track and memory 
pointer manipulations. This subroutine 
is equivalent to the DISK GET command. 


10 NT=FT+INT (RN/NRPT) s IFCT=NTTHENIG 
12 S$#="SA"+RIGHTS (STRS(1OO+CT) , 2) 
+", 12327E/8"3sDISkK!S¢:CT=NT 

14 S#="CA S27E="+RIGHTS (STRS (LOO+NT) 
ps2", 1" 3s DISK ISS 

16 Q1=Bi+(RLXRN-NBUPTRINT (RN/NRPT) ) & 
Q2=2INTCQL/HC) 

18 FOKE9133,02:POKE9156, Q2:POKE91S2, 
Q1—-HC*O2: POKE91ISS, Q1-HOxXO2: RETURN 


Line 10 calculates the new track 
required to be brought into the buffer. 
RN is the record number you wish to 
access. For example, if you want to 
examine the 244th record in your file, 
set RN=244 in the calling program. If 
the new track is the same as the track 
which is currently in the buffer (CT), 
then the track saving and calling steps 
{lines 12 and 14) are skipped. 

If the correct track is not already 
in the buffer, then line 12 saves the 
information currently in the buffer to 


the appropriate track and updates the 
Value for CT. Similarly, line 14 calls 
the appropriate track into the buffer. 

Lines 16 and 18 calculate the 
necessary parameters and set the buffer 
#1 input and output pointers to the 
appropriate values. 

There is one more step before we 
can use the system, preparing a data 
disk. The call statement in line 14 
will give a #9 error unless something is 
already written on the track. In other 
words, an initialized track won't work! 
Touse the following program to fill my 
data disk (all 39 tracks) with zeros and 
carriage return symbols. 


1000 POKEGISS, SO: POKE9LISS, 126 

1O10 FORT=OTO1O24: PRINT#SO, "O'S NEXTI 

1920 FORT=1TO039 

1030 S#="SA"+RIGHTS (STRECLOO+L) , 2) + 
", 12S27E/8"1DIsk !Sé 

1040 NEXTI:sEND 


Once you have a data disk prepared, 
using the system is straightforward. 
All you need to do in your main program 
is to set RN equal to the record number 
you wish to access, and then GOSUB 10. 
The subroutine will bring the 
appropriate track into the buffer and 
set the buffer input and output pointers 
to the correct values. As an example, 
add the following statements to the 
above. 


. GOTOLI90 

130 X#="THIS IS RECORD NUMBER" 
140 FORT=0T01459: RN=I1GOSUB1O 
150 FPRINT#6, X$+STRE(T) se NEXTI 
160 GOSUB12: END 


When you have this program ready, 
put a prepared data disk into your disk 
drive and run the program. The program 
will put the record number message (0 
through 1459) into the appropriate 
locations on the different tracks. You 
can see the results by calling the 
Various tracks into D200. The GOSUB 12 
statement in line 160 is the equivalent 
of a DISK CLOSE statement. It should 
always be your last operation when you 
finish working with the files, otherwise 
you will lose the information most 
recently written into the buffer. 

Touse this system extensively for 
handling random access files with 
various record lengths, and it works 
beautifully. I hope it will be just as 
helpful in your applications. 


SPEEDING UP DISK DIRECT FILES 
Written for CEP-DF, C4 in (¢) 


One of the nice features of OSI 
BASIC is that it supports DIRECT or 
RANDOM ACCESS files. However, the use 
of these files are time consumming, 
annyoying, and wasteful due to the 
manner in which the system handles them. 


The system treats a direct file asa 
collection of records. The records of 
any one file are all the same length and 
the length may be any power of 2 up to 


2o06® bytes long (e.qg. 
254,8,16,32,64,128, 256) (ref. Aardvark 
Journal #2 and correction Aardvark 


Journal #4). In applications where data 
is not accessed sequentially but 
accessed based on a decision, the direct 
file is essential. 

A look at sequential files will 
help point out the advantages of direct 
files for certain applications. A 
sequential file could be used in the 
follaewing manner to read "record" N. 


LISTING #1 
900 DISK OPEN, 6,FILES 
910 FORI@=1 TON: INPUTR&s NEXT 
920 DISK CLOSE, 6: RETURN 


This method requires that the file 
be read from the beginning every time 
any element is reads; it may be sped up 
by adding some controls. 


LISTING #2 
10 DISK OPEN, 6,FILES 


900 IFNSLAST THEN FIRST=LAST+1: GOTO92Z0 
910 DISK CLOSE, 6:DISK 

OPEN, 6, FILES: FIRST=1 

920 FORI@FIRST TO Ne INPUT R&: NEXT 


999 DISK CLOSE, é:END 


The addition above allows the 
program to continue reading from the 
last required "record" if the new 
"record igs beyond it in the file. 
However, the one feature of direct file 
records which I have ignored until now 
is that direct file records may have 
more than one output in them where the 
sequential file which is masquerading ag 
a direct file, has one string or 
Variable as its’® "record". 

If, for instance, you wanted to 
store a mailing list, everyone uses 
mailing lists as examples don’t they, it 
would be easier ta output the name, 
address, city, state, and zip to a 
record in a direct file as opposed to 
storing the data in a sequential file. 
Why it is easier is another topic. To 
do this in a direct file is as follows: 


LISTING#3 
19 DISK OPEN, 6,FILES% 


100 GOSUB9OO:REM WRITE RECORD 


200 GOSUB9SO:REM READ RECORD 


900 DISK GET 6, RECORD 

910 PRINT#S, NAMES: PRINT#4, ADDRESS$: 
PRINTHS, CITYS 

920 PRINT#4, STATES: PRINT#S, ZIPS 
930 DISK PUT 6:RETURN 

950 DISK GET 6, RECORD 

960 INPUT#S, NAMES, ADDRESSS, CITYS, 
STATES, ZIPS 

970 DISK PUT 6:RETURN 


999 DISK CLOSE, 6:END 


the time 
annoying part of OSI 
direct files which is that everytime a 
record is accessed the system reads in 
the disk track which contains the recard 
and if the operation ig a PRINT the 
system writes out the track to disk when 
finished. These computers are supposed 
tao be smarts why can’t the silly thing 
figure out aif the disk track containing 
the new record is already in the disk 
buffer because the old record was on the 
game track. There are two ways in which 
the system is inefficient in direct file 
storage; the first is the use of only 12 
pages/track instead of 13 and the second 
is the fact that each PRINT statement 
generates a carriage return (#0D) and a 
line feed ‘#0A) when only the carriage 
return is used by the INPUT statement 
and the line feed is ignored. In the 
Mailing list example there are 3S bytes 
in @ach record taken up with line 
feeds. 

Now that we know the problem, what 
can be dane about it? Since the 
computer is faster than the disk drive, 
it seems to me like a good trade to 
expend a few more RAM bytes in the 
program and save a few disk bytes in 
every record. In order to do this 
several utility subroutines need to be 
developed. IT prefer to put these in 
subroutines in order to provide 
transportability from program to 
program. 


This brings us to 
consuming and 


FUNCTION is OPEN FILE 


The first thing we need to do is 
locate the file on the disk and create a 
buffer area at the top of memory. The 
track is located by reading the 
directory from track 8412). 


VARTABLES 
R -~ Record being requested At —- 
Temporary 
RL - Record length I _ 
Temporary 
RT - Records/track J ae 
Temporary 
TF - First track FILES - File 
name - 
TK - Present track W - Write 
flag 


Z$® —- Carriage return 


LISTING #4 


10 POKE1I32, 255: POKE133,1771 CLEAR 
20 INPUT'FILE" sFILE$:RL=64: GOSUB9IOLO 


LISTING #5 


9000 REM READ DIRECTORY & INITIALIZE 
9010 The Le RT=INT (S328/RL) 2 2Z8=8CHRS (15) 
9920 IF LENCFILE$)<6 THEN — 
FILES=FILES+""s GOTO9ORO 

9030 DISK! "CA BFOO=08, 1:GOSUB91O0O 
9040 ITF TR >OTHEN RETURN 

9OS5O0 DISK! "CA BFOO=08, 2: GOSUB9LOO 
9060 IF TKS >OTHEN RETURN 

9070 PRINT F@a "NOT FOUND": END 

9100 Aga" 

9110 FORT=48896TO49151STEPS: IFPEERK (I) = 
SoGOTO9 TSO 

9120 FORIJ=ITOL+S: AS=AS+CHRE (PEER CJ) Ds 
NEXT 

9150 IFAS. SFILESTHENA$=" "3s GOTO9LSO 
9140 I=PEER (CI+6) ss TK@I-G&aXINTCI/16) : 
RETURN 

9150 NEXTIs RETURN 


Now we know the first track of the 
file. Change the POKE at i133 for 
systems with less than 48K memory. The 
CLEAR will reinitialize HASIC’s 
pointers. 


FUNCTION 2: WRITE RECORD 


Both the writing and reading of 
records uses device #35, memory I/0. In 
order to write an entire record, execute 
we 


LISTING #6 


9200 REM WRITE RECORD 

9210 LT2=TF+INTCR/RT) sTFI=TKGOTO9240 
9220 IFW=1THENGOSUB9IS8S60O 

92390 TK=IsGOSUR9IS81O 

9249 GOSUB9S946O 

9250 FRINT#S, Ag Zs RBs ZH 

9260 WelsPRINT#9s RETURN 


9900 REM CALL DISK TRACK 

9810 POKE909@, 128:POKE9099, 178: 
POKE9105, 128: POKE9106,178 

9820 PRINT#S, "DISK! "2 CHR®(34)2"CA 
B200m"s RIGHTS (STR#(TK),2)3",1" 

9830 PRINTHS, "GOTO9840": DISK! "IO 

10, 10:END 

9940 POKES105,0:DISK!"I0 O2,02:RETURN 
9850 REM SAVE DISK TRACK 

9860 POKE9O98, 128: POKEI099,178: 
FOKE9105, 128:PO0KE9106,178 

9870 PRINT#S, "DISK!" CHRS(S4) p"GSA"s 
STRS(TK) 3", 1=B300/D" 

9880 PRINT#HS, "GOTO989O" DISK! "10 

10, 10:END 

9890 FPOKES1OS, O:sDISK!"I0 02,02: RETURN 


a 


9950 REM SET DEVICE #5 QUTRUT 

9960 X= (R-(TK-TE) KRT) KRLs Ye INT (X/256) 
9970 FOKESIOS, X-(Y¥R256) :POKE9106, 179+Y: 
RETURN 


This code checks to determine iif 
the track in the buffer is the same one 
being call for. If it is, no disk 
transfers occur. If it is not, then the 
WRITE FLAG is testeds if the buffer iis 
called. Line 9250 may be any set of 
PRINT statements, however, each user 
variable should be followed by a Z 
(carriage return) and the semicolon used 
to pack the output. The FRINT#9 ends 
the FRINT statements and dumps a4 
carriage return/line feed to a null 
device. 


FUNCTION 3: READ RECORD 


The method im which a record is 
read is Similar to a write. To read an 
entire record, execute as 


LISTING #7 


9300 REM READ RECORD 

9310 T2TF+INT (R/RT) s IFI=TREGOTO9S4O 
9320 IFW=1THENGOSUB9S860: WeoO 

9330 Thk=T:1GOSUR9810 

9340 GOSUBSSIO 

9350 INPUT#S,A, BS 

9360 RETURN 


9900 REMSET DEVICE #5 INPUT 

99LO X= (R—CTR<TF) RRT) RRL Y= INT (X/256) 
99290 POKE9098, X-YRK2561 POKE9O99, 179+Y 2 
RE TURN 


AS in the write routine, the code 
checks ta determine if the track in the 
buffer is the same one being called for. 

If it is not, then the WRITE FLAG is 
tested. Tf the buffer ais dirty, then 
the old track is written and the WRITE 
FLAG is reset before the new track is 
called. Line PASO may be any set of 
input statements but these inputs should 
exactly match the outputs on line 9250, 


FUNCTION 4 


At the end of the program, this 
function must be called to insure that 
all the data which was written is indeed 
placed on the disk. To call, execute ar 

BOSUB9410 | 


LISTING #8 


9400 REM CLOSE FILE 
9410 IF 220 THEN RETURN 
9420 GOSUB9860: RETURN 


This code checks the WRITE FLAG and 
saves the buffer to disk if the flag is 
set . 

Listings 5-8 are written to be put 
together as a package and were listed 
separately for clarity in explanation. 
Listing #4 is user dependent but all of 
the functions must be performed. Like 
all things in the real world there are 
advantages and disadvantages. I believe 
the advantages win in this case. 


The digadvantages ares 
recards may be aver written past 
defined length and garbaqe up the 
beginning of the mext record. Although, 
IT never tested OST BASIC to determine if 
and haw it protects you from this. A 
page of mammary just below the disk 
buffer is dedicated to pass to DOS the 
CALL and SAVE cammands. Lastly, the 
subroutines take up program space. 


First. 
their 


ares First the disk 
space i6 8.5% more efficient since 
there are JS pages instead of 12 ona 
track and additional bytes are picked up 
by net putting lLinefeeds in the records. 


The advantages 
file 


The program track storage is less 
because OST BASIC stores the disk buffer 
alang with the program on the disk. The 
average read/write time of a record is 
much lower since these subroutines run 
much faster than disk I/0. These 
routines will work for any record length 


within the physical capabilities of the 


Gigk. Lastly you don*t have to sit 
there and hear the P!'é2% being pounded 


out of your disks and drive by the 
PUT/GET routines. In closing, consider 
initializing a track of 64 byte records. 
The PUT/GET routines would go ta the 
disk no less than %4 times where the 
subroutines listed go to the disk only 2 
Limes. 
NOTE: To change 
systems samaller 
following. 


the subroutines for 
than 48k use the 


OFFSET = 4% (48-MEMSIZE) 

POKE’S to 1335 = LISTED VALUE ~ 
POXE’ & to FOSS & Flod = 
UPPSET 

"ES" in lines FB2Z0 & 
OFFSET 


DPR ET 
LISTED VALUE — 


9870 = $B - 


USING THE CIE ROM WITH OSS3D 
BY DAVE POMFEA 
When I plugged my new CiE ROM into my 
CAiF/MF system and tried out the new 
features I was astounded by all the 
atuff that they had put in it. However, 
the editor and screen window were mot 
usable with QS65D. A short note in the 
manual said that a patch would be made 
available soon, but that was six months 
AC « I grew impatient and wrote my own. 
The main problem is that the Cie ROM 
uses mamory from $200 to $232 and OS65D 
BASIC also uses that area for the 


interpreter. BASIC would bomb if the 


new editor or screen driver were used. 
The solution is to swap this area of 
memory with a save area depending on 


Cle ROM) was 
nice place for the 
gave area and the program to do the 
swapping is the space used by the DOS 
screen driver ($2599 & up) since we 
don't need it anymore. The other change 
needed is that the ClE rom doesn’t 

recognize a backspace code (#08), so we 
changed it to delete code ($5F) which it 
can do. To use the patch, just run the 


routine (BASIC or 


being executed. A 


which 


the - 


basic program. It will poke the code in 
and then clear the screen to reset the 
cursor to the top of the screen. 


To change scroll windows oF screen 
width, poke the change to the Save area, 
nat to é The save area starts 


$LOI— BLD « 


(SOFT sa 


at $25EF 
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Bali's). The first thing found was a 
small cut in one of the traces -~ it 
looked like a spec of dust! This cut was 
the side select line from pin S32. It is 
located underneath Jil (34 pin edge 
connector-see diagrams) on the solder 
gide of the main FC board. 

That was easy to find but the drive 
still didn’t work. Since the drives 
were of different assemblies I could not 
compare them one for one. 

Fram there I started comparing 
signals with a scope. I started looking 


SEPARATE THAT DISK DRIVE 
CHARLES MAGUIRE ITI 


(We have had a lot of questions about 
putting non-OSI drives on OSI systems ~ 
here’s how to do it.) 


Tt was way back at the beginning of 
January that I started the long and 
cheap way of upgrading my C2-4F, I got 
everything working the end of June! 


I learned quite a few shortcuts OSI at the board again when I found some 
saijaibialile The biggest RAs YUEN Ee the paddle differences. And there it was--~another 
board they use to crosswire the ribbon foil cut. This one was very neatly done 


cables; If didn't know they were available ard Ridden 
so If cross jumpered the 34 pin ribbon 
cable to the 24 pine connector BY HAND 
{time consuming’?). 


an the component side of the 
board--underneath the edge of the chip. 
This is where you might have to do some 
trace searching. On my drive the traces 


by oe Sen ne ae a ler ; in this area were slightly different. I 
cee ee Name He oe ae Caner ror had to make the cut on the back side of 
about #2680 (including case and power the board. But wherever you make the 


nes Plugged it _ and it didn’t cuts, be sure to check the schematics so 
WC by with the FL-470 (D & N) board and you get the right ones at the right 
the monitor ROM mad--then I started to place. 
learn what a Data separater is and how As 


soon as I made these cuts to my 
you go about making it work. 


drive, I plugged it in and everything 
I told my dealer to get me a data worked. I have used it for several 


separater. He got it from MPI directly weeks now and have had no data loss. 
and sold it to me for $40. ZT plugged it If you have any questions or 


in and still nothing worked. Then I A 02 
berreawed an OSI drive, plugged it in and Pont aes Rare ca et, Aches were ses 


a few seconds later I was looking at the 
BEXECK program of OS65D. That narrowed 
my problems to the disk drive. 

From there I gapent about 35 hours 
looking and comparing the OSI drive with 
my drive (sound easy?-drives were 
different assemblies but still both were 
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GARY HUME, WARSAW, NEW YORK. 


After reading the last Aardvark Journal into one key. The BREAK key ig a 
and in particular the letters oan the natural to activate the TTL circuit. As 
BREAK key modifications, I decided to an added touch, I switched the BREAK key 
share my keyboard modification to. an cap with the RUBOUT ney cap. The only 
SFPDF system. First I disconnected the thing left is to change a few game 
leads from the BREAK key. I then instructions and remember ta use the 
mounted a# small push-button switch in RUBOUT key for deletion. 
the top left corner of the keyboard out IT used four IC*s to make the SHIFT 
of the normal path of finger travel key and delay the °O”" key by ten 
while typing, labeled it *BOOT" and Miliseconds. The 7406's provide open 
connected the leads from the BREAK key collector outputs to interface with the 
to it; keyboard outputs. The circuit is 
With one problem solved, I then mounted near the keyboard with leads 
designed and built a small TTL circuit sOldered directly to the PC board 
to combine the SHIFT ’0* for backspace traces. 
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RALFH SHERRICK, 
PENNSYLVANIA 


HARRISBURG, 


After reading my Aug. Aardvark Journal I 
was especially interested in Dave 
Fompea’s disk modification and Dave 
Sugqar’s pokes for OS6SD. 

I think Dave’s mod is fantastic-the 
way OSI should have done it the first 
time around. However, Dave stopped a 
little short of something for the man 
who has everything-or at least the guy 
who has dual floppy drives. 

I have taken Dave's modification 
and added logic qates for dual drives 
and now I have complete automatic 
operation. No special addressing, na 
switches to throw, just call up either 
drive and you have it without fuss. 

Note that the numbers shown in the 
Journal fon U76HS,7) were reversed. 
Also be sure to tie (CLR-1,CLR-2) ping & 
& 11 high on the 74L5123 as shown and 
watch polarity on capicitors Ci-C2. 

To Dave’s instructions for the 
modification, add the following for 2 
drivess 


4-B Solder a jumper from 610 board Jz-2 
to MPI J1i-2. 
(This is listed as a spare by MFI) 


6-B Cut the trace from U72-16. 
use the plated 


thru holes nearby for solder pads. 


You can 


9. Change to read...connect the 74122 
pin 4 to added 
74LS02 pins 2 and 9. 


13. Connect U77"A"-3 to U67-6 (select 
"@®" signal) 

14. " "  U77"C"=-8 to U67-3% (select 
"B" signal) 

is _ " U77"B"-4 ta U75-1 (motor 
"AB" rur) . 

16. ‘ "  U77"D"=13 to U75<-3 (motor 
"BY! rur) 

Lvs The "A" drive wiring should be OK 


but you will need 

to cut the trace on 
at the edge 

connector Ji-16. 
18. Locate a pad at J1i-2 and solder a 
jumper from Ji-2 

ta Ji-16. 


the "EB" drive 
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‘ CONTROL 


—_—_------errror- 


C1P DISK DRIVE 


| 8-27-81 R.Sherrick. 


1 KKXKKK LIVING PATTERNS XxKKKx 

3 REM by: BRUCE ROBINSON & AL STANKEWIC 
Z 

10 IFPEEK (S90) =161 7THENIS 

13 GOSUBS2000 

13 GOSUR49000 

19 WIie=PEEK (129) sUS2=2=PEEK (130) sPOKE129,08 
PORELSO, 212:U¢=" "sFORU=1TO7 

20 USt=USeUS+" “SNEXTsPOKEL2S]9,U1sPOKELSO 
pile 

2i FORQ=S4021TOS43002 POKEQ, S2sNexT 

ao RS=252:ES=222:SReS7100 

2H IFPEEK (SR) =222THEN2ZS 

27 CGxA2 

28 T232sPOKES6832,02: IFPEEK (S7088) < 128TH 
ENI=64 

2? FOKE1I,O: POKEI2S, 253 

BO X=USR(X) sJ=PEER (S31): IFJ=13STHENFPRINT 
:GOTOSO 

40 IFJ=S2THENPRINT" "ss GOTOSO 

41 TFIJ=1L1277THENSS 

42 GOSUBIOO 

4% GOTOSO 

4G POKEL1, LOSsPOKELe, 2 

BO FORQ=1TOSESs X=USR (xX) 

So IFPEEK (SR) =RSTHEN29 

S6 IFRPEEK (SR) =ESTHENRUN 

60 NEXT 

100 IFI<S8ANDI>47THENITIO 

1O1 TFI=SSTHENCUHCU-T:sPOKECU, CGs RETURN 
102 IFJ=77THENCU=CU+T ss POKECU, CG:RETURN 
103 IFJ=72THENCUHCU-1:sPOKECU, CG: RETURN 
1094 IFU=735THENCUHCU+1sPOKECU, CGs RETURN 
105 IFJ=74THENGI=GI+1: GOSUB400: RETURN 
106 GOTOLSO 

107 IFJ=9STHENGOSUB2OO:s RETURN 

108 IFU>240THENGOSUBZOO: RETURN 

109 PRINT" K" ss RETURN 

L110 IFU=48THENFPRINT" KKK KKK KKK KKK KK KKKE 
KKKKK' es sRETURN 

20 FORK=17TO07-48:PRINT"R" ss NEXT: RETURN 
i180 IFJ=8S9THENCU=CU-I-1:POKECU, CG: RE TUR 


1S2 IFJ=73THENCUHSCU-I+1sPOKECU, CG: RETUR 
134 IFJ=78THENCU=CU+I~1:POKECU, CG:RETUR 
156 IF J=44THENCU=CU+I+1:POKECU, CGr.RETUR 


i140 GOTOLO7 

200 KLePEEK (512) :POKES4016+KL, 32 

210 POKES4015+KL, 95:POKES12,KL—1 

299 RETURN 

SOO FORK@#1TOU-240:PRINT" "sg: NEXT: RETURN 
400 IFGI/2=INT(GI/2) THENCG=32:FOKECU,CG 
RETURN 

401 CG=42:POKECU, CG: RETURN 

49000 DATABORDER 

49002 READAG: IFAS >"BORDER"THEN 49002 
49004 FORQ= 5900 TO 53990 :READM:FOKEQ,M 
:NEXTO 

49008 DATAI4S, 255,164, 232, 145, 240, 136,2 
O08, 251,164, 233, 145, 242, 200, 208 

49010 DATAZSS, 162, 3,191,244, 149, 235, 202 
116,249, 160, 0, 166, 239, 165 

49012 DATAZSS, 145, 235, 24,165, 234,101, 23 
5,133, 235,144, 2, 230, 236, 202 

49014 DATAL6, 238,166, 239,145, 255,145, 23 
7 Gh. 165, S54 1014 O37, 433, 227 

A901 DATAL44, 2, 230, 238, 202, 16, 238,96,2 
34, 234, 36,36, 36, 36, 36 

AIO1B DATASS, 36, 34, 36, 34, 36, 36, 36, 36, 3H 


34, 36, 36, 36, 36 


16 


ag020 
49050 
49100 


LENGTH 


49110 


STH 


49120 


ENT 


49130 


ERS 


49160 
49170 


MEMORY 


49180 
AOL9IO 
AQGBOD 
49OBOQO 
49SB1oO 
493520 
4AOSSO 
49340 
49350 
49SBSO 
4AOBTO 
49380 
AQSIPO 
AOSOO 
49610 
AIS&2O 
49649 
4A9SSO 
49OS&S1 
496352 


49655 
49656 


ere) 


49657 
497 OO 
ADT SO 
AD7 SO 
49733 
49980 
AO99O 
BOOOIO 
BOO 1 
OOO 2 
BOO 4 
BOOS 
SOOO 


BOOS 


wo He Be 


WOOL 4 


228,192 


BOOTS 


BOOS 


WOOBO 


DATARS 
GOTO49300 
: BS (252) TOP 

EY (256) BOTTOM STR 
EQ= 232 


TOP LEN 


E9= BOTTOM LENGTH EA=INCREM 


EF (239)= LENGTH OF DOWNWARD BORD 


FO,Fi= TOF LEFT BORDER OF SCREEN 
F2,F3= BEGINNING OF LAST PAGE IN 


F4,F5= CONST. FOR UPPER LEFT 
F6,F7=CONST. FOR UPPER RIGHT 
FF=ERORDER GRAPHIC 
POKE241, 208: POKE240,0 
POKEZ43, 211:POKE242,0 
POKE245, 208: POKE247, 208 

REM TOP LEFT 
POKE244,4 

REM TOP RIGHT 
POKEZ46, 29 
POKE232, 128 
POKE233, 128 
POKE234, 22 
FOKE2Z5S, 32 
POKE239, 32 

CU=53776 

PRINT 

PRINT" SCREEN SIZE? 
PRINT" 

PRINT! 


1 - 24X24" 

a 25420" 

oO - Wrap- 
around" 

POKE11,OsPOKEL2, 2531 X@=USR(X) 

ONPEEK (331) -48G0T049980, 49657, 519 


PRINT 
POKE241,207:POKE240, 224 
FOKE2Z46, 30 

CU=53745 

GOTO49990 

PRINT 

POKES915, 251 

DATALIFE 

IFPEEK (590) =161 THENRESTORE: RETURN 
READAS: IFA$<>"LIFE"THEN 50002 
FORO=590TO712: READM: POKEQ, Mt NEXT 
POKE12, 2:POKEL1, 103 

DATALG1 B54 Og dy By Boy 34, 04, 65, 6, 1 


59,0, 133, 224, 133 


DATA22S, 169, 208, 133, 225,169, 28,13 


%, 227,96, 32,80,2,162,8 


DATAI49, 0, 133, 228, 198,79,2,177, 22 


4,201, 42, 208, 2, 230, 228 


DATAZ02, 16,242, 201, 32, 240,14, 164, 
1 3,240,16,192,4 
DATAZ40, 12,169, 32, 208, 8, 164, 228, i 


Pago, 298, 2,169,42, 169 


DATASS, 145, 226, 230, 224, 230, 226, 20 


8,200, 230, 225, 230, 227, 165, 225 


DATAZOL, 212, 208, 190, 32,88, 2,160,0 


nl 77, 226,145, 224, 239, 224 


ot Oa 


27,165, 


BOO 2 4 
SOP 5 
BOO? & 


SOOSO 


DATAZZ0, 226, 208, 246, 280, 225, 230, 2 
225, 201,212, 208, 236, 96 
DATAZS4, 234, 165 

S=6000 
FORT=0TO9: READM: FORQ=0TOG: POKES+Q 


KLO+T, Ms NEXTOs NEXTT 


DATA 146,00, 177, 224, 201,42; 208, 2.2 


204 228 
BOOS FORQ=OTO8: READMs POKES+OK10+1,M2NE 
XT 


SOO40 DATA 66,65,64, 34, 32,2,1,0,33 
§OOSO POKE624, 761POKE 425, 112: POKES 246, 23 
50060 POKE6090, 761 POKE6O91, 126: POKE6092 


ne 


SOQ06GS POKE7ZO9, 76:POKE710,12:POKE711,23 
BOO70 IFPEEK (37088) >127THENRESTORE: RETU 
RN 

SOQBO FORQ=OTO08s READM: POKES+Qxk10+1,M:NE 
XT 

SQO9O DATAI2Z8, 129,130, 66,64,2,1,9,65 
HOL00 POKE611,24:POKE665, 65 

SO2L200 RESTORE: RETURN 

~1O00 POKE2Z47, 204: POKE245, 204 

PlOOS POKE2Z41, 207 

21006 CUrFS3713 

21008 POKEZ4SO, 160 

21010 GOTO49980 

S2QOO PRINTsPRINTs PRINT: PRINTs PRINT 
32010 PRINT" To PRINT Stars: " 

weQ20 PRINT" #?s give you stars." 
S2030 PRINT" Cont #’s for spaces. " 
w2O4O0 PRINT" Cont 0 for backsp. " 

S2050 PRINT 

S260 PRINT"Star Cursors" 

s207O PRINT" Keys are around J," 

82080 PRINT" J changes cursor, " 

32090 PRINT 

w2iOQO PRINT"RUBOUT Starts patterns. " 
we2lO? FORJ=1TO6:PRINTCHRS (135) psNEXT:PR 
INT 

weliOQ PRINT"R SHIFT Stops patterns. " 
sell2 FORJ=1T07:PRINTCHRS (135) ssNEXT:PR 
INT 

w2iSO PRINT"ESCAPE Runs again. " 

weid2 FORJ=1T06sPRINTCHRS (i135) p2NEXTsPR 
INT 

32900 RETURN 


1 REM ***PHONE NUMBERKXX 
2 REM BY BRUCE ROBINSON 

§ REM IF NOT PRINTING RIGHT, ADJUST LIN 
E 120 
8 LPeg 

9 POKE1S,@81 

10 GOSUBIOOO 

11 PRINT 

i2 XmO 

14 PRINT"HIT ANY KEY TO START": X=USR(X) 
s SAVE : 

15 PRINTTAB(28) : 

16 FORQ=1TOS:PRINTN(Q) ::NEXT 

i7 PRINT"=": 

18 FORQ=4T07:PRINTN(Q) 3 NEXT 

19 PRINT:PRINT: PRINT 

20 FORA=1TOY (1) 

SO FORB=i TOY (2) 

40 FORC#1TOY (3) 

45 FORD=iTOY (4) 

SO FORE=iTOY (5) 

40 FORF=iTOY (4) 

70 FORG=1TOY (7) 

100 PRINTMIDS (AS(N(1)).A,1) 8 

102 PRINTMID®(AS$(N(2)),B,1)3 

104 PRINTMID#(AS(N(S)),Cat) 3 

106 PRINTMID®(A®(N(4)),D,1)3 

108 PRINTMIDS(A®(N(5)),E,1)3 

110 PRINTMIDS(A®(N(5)),F,1)3 

112 PRINTMIDS (AS(N(7)),G,1)3 

120 X=X+is IFX>LPTHENPRINT: X=O; GOTOZO0 
i130 PRINT" "; 

200 NEXT: NEXTs NEXT: NEXTs NEXT: NEXT: NEXT 
210 FORQ=1T0@:PRINT: NEXT 

220 POKES17,0 

250 STOP 


1000 DIMA®(11):REM PREVENTS OSI MACHINE 
S FROM CRASHING 

1010 FORQ=0TO9: READAS (Q) sNEXT 

1020 DATAOOO, 111, ABC, DEF,GHI,JKL,MNO,PR 
S, TUV, WXY 

1030 POKE11,0:POKE12, 253 

1100 Q=1 

1110 FORQ=1T07 

1120 PRINT" YOUR NUMBER? "; 

1130 X=USR(X) 

1132 J=PEEK (531) 

1134 PRINTCHRS (J): 

1140 IFU%47 ANDJ<S8THENN (@) =J-4810=0+1 

1150 IFQ<STHENII30 

1200 FORO=1T07 

1210 Y(Q)=3 

1220 IFN(Q)<2THENY (Q)=1 

1230 NEXT 

1999 RETURN 


LIFE FOR TWO 


Life ais one of the original and oldest 
computer games. It was initially played on 
teletype type terminals with rather primitive 
early computers. The rules are simple, but, 
as in all the good games, they lead to rather 
complex strategies. | 

Life is played on an N X N- matrix. 
Animals are placed on the matrix dots. The 
rules ares 


1. Any animal surrounded by more than 3 other 
animals will die from overcrowding. 
2» ANY animal surrounded by less than 2 other 
animals will die from lonesomeness. 
3. Whenever 3 animals surround the same dot, 


they will birth a new animal in that dot. 


We have included here what Robinson & 
Stankewicz call "Living Patterns" which is 
one of the finest partially machine code 
Life games available for the CiP. As written, 
it works on BK Basic in Rom machines only. 
For owners of other machines, I would 
suggest that you look in the old issues of 
the AARDVARK catalog. We published a Life 
game done in Bagic which will run on any OSI 
machine. It should be emphasized that the R 
& S game is much better. 

The only bad thing about Life, as 
fascinating as it is, is that There is no 
comptetion involved and it eventually tires. 
R & S have therefore, come up with what 
should be Opus Magnus end-of-the-line 
end-all-and-be-all of Life gqames-"Life for 
Two". This one is competitive. You can 
either enter new animals on each turn or 
@llow it to free run after you put in an 
initial pattern. It should run on virtually 
any OSI machine. I think, aside from the 
fact that the cells are picked by pressing a 
letter and a number key, that the — 
instructions are self explanitory. It is one 
of the more difficult and more competive 
games which we have published in this 
Journal. 


she 


1 GOTOS: BRUCE ROBT NSON 
3% GOSUB2IO00 


& GOSURLAOD: DIME (2) ,A67, 7): GOSUBTONO 
IF GA SOTHENRX=1,. 5/708 

g FORO.OTO7:FORR=OTO7:A(Q,R) #32 NEXT: NEX 
+ 

{Oo Ce 4534-9O8e (L164) -WitSek (7 -H1) - 2k 
(7m-HLI x CLI=64) 

13 FORQ=7680TO7780: PORE, 200: NEXT 

mat POKEC<-LI-1, 204: POKEC-LI-1L+W1#3, 2052 P 
OREC-LI-1+LIKS*H1, 2O3 

4 POREC-LI-1L+lL Ik SKHI+tW1 #3, 206 

At) FORT=1TOWL*S—12FOQREC-LI-L+), 1312 P0ORE 
CHL KLIKS-LI-L+d, 132: NEXT 

AL FORUS1TOHL#S-1sFOREC-LI-1+d4ab1, 140:P 
QREC-LI-L+tWi kS4+L kd, LAs NEXT 

43 REM FORF=1TO3 

50 FORT=1TOWLsPOKEC-LIX2-3+3%),0+48 

eS NEXT: GOSUBSO0O 

4 FORIJ=1TOHL: POREC-HLIXS—24+ 30 KL T, d+o4: 
NEXT: TFA=1LTHENSOOO : 
SS IFLS=2THENSS 

S4 OSs 2s FORF={17TO3s GOSUBS100: NEXT: GOTOR8S 
59 FORP={1TOS: GOSUBSZ0OO:FRINTAIS", three 
animals": :GOSUB1OO 

S61 ACHX—-1,HY~-1)=28MEXT 

6S FORF=1 TOS: GOSUBS200: PRINTALS" , 
animals": :GOSUB1OO 

68 ACHX—-1,H¥—-1) =1a NEXT: GOTOR8S 

83 GOSUBZOO 

ae FOR JSOTOWL—-1isFORK=OTOH1-1: IFACI,h) =O 
THENA (J, h0 =3 

87 NEXTsNEXT 

QQ FORJ=OTOH1-1:A(W1,0)=100: NEXT: NH=3:N 
C=3: GOSUBZO0: GOTOSOO 

1900 E=OsEE=O: FORM=17TO2 

1O1L IFLS< >2THENFRINTCHRS (12) "Choose an 


animal. 

10s GOSUBIBS00: IFJ=1277THENGOSUBL 2000: GO 
TOLOIO 

107 IFI64THENI 460 

110 J=J-64: IFEE=1THEN1638 

115 IFJ*<10R02HiTHENIT SO 

1290 EE=1 

145 HY=7:NEXT:GOTO171 

160 J=J-48: IFE=1THENIIS 

168 IFI<£i1ORI2WiTHENI SO 

169 E=1 

170 HX=J' NEXT 

171 B= (HX-1,HY-1) s IF RS< 1ORRS > 2THENRET 
URN 

180 FRINTCHRS (135) "X*X*TILLEGAL &¥xX 

os sGOTOLOO 

200 CX=s INT ORND (@)* (Wi-1)) :CY=INT CORND (8) 
(HL 1)) 

210 J=J+1: 1Fd=20THENFRINT: RUN 

oh) TFA(CX, CY) =10RA(CX+1, CY) =1LORA(CX,CY 
+1) =1 THEN2OO 

2440 ACCX, CY) =2:A(CX+1, CY) =2:ACCX, CY+1)= 


4 Lie3es [PFEPEER (37088) < L29THENLI=64 


three 


eee 
ot 


200 RETURN 

BOO FORU=OTOWL-1:FORE=OTOHI—1 

S10 L=C+3xkI+3kE XLT 

B20 ONACI, 6) GOTOS40, 350: GOTOSSS 

340 GOSUBS110:GOTO380 

B50 GOSUBS120: GOTOSR8O 

S55 POKEL, 165:POKEL+1, 32:FOKEL+32, 32:5P0 
KEL+33, 32: GOTOS80 

380 NEXTsNEXT 

3290 RETURN 

SOO GOSUBRZOO:PRINT'COMFUTING NEW BOARD 
~"s: TFA=LTHENS7S 

BOL IFQ9=OTHENQ9=1:GOTOS10 

SO7 (Flee "Y¥"THENS21 

S10 GOSUBSSOO 
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S11 GOSUBS00: GOSUBS 1G: IFD9=1THEND9=0: LF 
Se > 2THENS40 

Si2 IF D9=1THEND9=0; IFLS< >2THENS40 

S15 GOTOSe1 

S16 FCL)sO:F 62) =O: FORJ=0TOWI-1:FORK=0TO 
Hi~1:ONA (I,K) GOTOS17, 519,519 

S17 F (1) =F (1)4+1:G0TOS19 

S198 F (2) =F (2)4+1 

S19 NEXT:NEXTs LFF (1) <20RF (2) <2THENL 1000 
520 RETURN 

Sq LFLS< >2THENPRINTCHRS (13) "COMPUTING 
MOVE, "Ws 

SO GOSURSOOO 

S31 TEL&<>"Y"THENS40 

S32 GOSUBZOO 


wee FPRINTCHRS (12) "COMPUTING BOARD i 


2o4 GOSUBSSOO: GOSURSOO: GOSUBSI6 

240 TFLS=2THENGOSUBLR9900: FRINTCHRS (13) " 
MOVE. “Rees “ s 

244 GOSUBLOD 

24 TPFACHX<-1, HY-1)<STHENPRINTCHRS (13) 5"! 
try again!!! "ssGOoTos40 


S49 TRELS="Y" THENA (CHX—-1,HY¥-1)=12G0TO0570 
vw TPHXA< -CXORHY< -CYTHENS SO 


SS1 FORJ=1TOS:PRINTCHRS (13) 3"  k*AXCANCE 
LLEDKKK" 

S52 FORK=1TOS00: NEXT 

S53 PRINTCHRS (13) " 

S54 FORK=1TOS00: NEXT 

S57 NEXT 

S59 ‘E=O:EE=0:FORM=1TO2 

S60 ACHX—1,HY-1)=1:A(CX-1,CY-1) =2 

S70 IFL&="Y¥"THENFRINTCHRS (13) "COMPUTING 
NEW BOARD "3: GOSURZ00:GOTOS75 

S72 GOSUBI00: GOTASBO 

S78 GOSUBSSOO: GOSUB300: GOSUBS16 

5BO REM 

590 GOTASOO 

S000 FORRI=1TOAA: GOSUBRZ200:FRINT'MQVE ™ 
Al$;:SS=2: GOSUBS100:83=1 

3008 IFRI>AXTHENIFRX >RND (8) THENRI=AA: GO 
TOSOZO 

3007 IFCP=1THENSSO0 

3010 GOSUBS2002 PRINT" MQVE 
OO 

S015 IFPRI >AXTHENIFRX >RND (@) THENRI=AA 
3020 NEXT: GOTOS8S 

2100 GOSUBLO0: A(HX-1,HY~-1) =SS-CPrL=C+3% 
(CHX—1) #34 (HY—1) KLI 

S105 IFSS-CP=2THENS120 

3110 POKEL, 176:POKEL+1, 178:FQKEL+LI, 177 
:POKEL+LI+1, 175: RETURN 

BLS L=C+3e (HX—1)+3% CHY-1) kL 

3120 POREL, 189:POKEL+1, 190:FOKEL+L1, 190 
SPOKEL+LI+1, 189: RETURN 

S200 PRINTCHRS (13) " 

"CHR (13) ¢: RETURN 

3900 GOSUES200:PRINT' COMPUTING MOVE": : 1 
FRI=1THENS609 

S10 GOSUBSOOO:HX=CX:HY=CY:A (UM, UK) =2:6 
OSUBS115:GOTOS015 

HOO HX=HX+1sHY=HY+1 

3605 IFHX>1+H1/2THENHX=HX—2 

BO10 TFHY>1+W /2THENHYSHY-2 

3620 ACHX-1,HY~1) =2:GOSUBS115:GOTO3015 
SOOO F C1) =0:F (2) =O: GOSUESOOS 

S002 [FLS=2THEN1 4000 

O04 GOTASOLS 

SOOS N=746902 FORXX=0TO6: FORYY=OTO7 

S006 LE=ACYY, XX): TFLES STHENF (LE) =F (LE) + 


"ASHES sGOSUBSI 


HOOF TFLE=STHENLE=0 
S008 IFLESSTHENLE=200 
BOOF TEYY2=Wi THENLE=200 


WOO FPOREN, Les N=N+1sNEXTs NEXT 


SOLlit Pt2)=F (2)+4+1 Z 
SOS RETURN 

FOS FORJ=OTOW1—-isFORK=OTOHI-—1i: IFAC.) 
=A THENSOI 7 

S016 FORE7690+7+8*kE,A07,£) sGOTO5018 
BO FOKE7690+I+8xkE, 0 

SOLS NEXT: NEXT 

FOL? H6=0:C6=0 

BOLO FORIJI=OTOHI-1:sFORE=OTOW1—-1 © 

SOS ONACI,) GOTOSO40, S050: GOTOS960 
SO40 H6=Hb+1: GOTQS060 

BO8O (6=C6t+l] 

SO6O NEXT: NEXT 

S065 C6=C6/ CHI KW1) tHG=HG/ CHI KWL) 

FQO7O CC=-15S36*KC6t+492 

HOBO IFC6:=s, 32 THENCC=0 

BOPFO TFCé<=,. 19THENCC=200 

BOSS CH=—-294*HG6+4+207 

BO94 TFHS6?:=,. 36THENCH=100 

FOGG TFHS6<=. L6THENCH=160 

sai) Tie—-YE1D 

Siio FORJIU=-OoTOW1L—-1:sF OREU=OTOHI-1 

GSliz ITFACIU, KU) < o3THENS ISO 

SLiS POKE7690+JUt+KUKS, 2 

S125 GOSUBRS200 

B1i26 FORE7690+JU+KUKS, O 

S130 TA=CCKDC-CHADH 

S1iS4 IFC4* 2THENTA=TA-20000 

Mis6é IFH4< 2THENTA=TAt+25003 [FH4< 1 THENTA= 
TAABOOO 

S140 IFTASTUTHENTU=TAs Ud=JUs UR =U 

S150 NEXT:sNEXT 

S160 CX=Ud+)lsCY=ukr+1 

S1ié6éS IFLé="Y"THENA CUI, UE) =2 

S170 RETURN 

S200 POKE11, 94: FOREL12, 29: X=USK (X) 

S214 POKE11,O0sPOKEL2, 253 

S250 DC=FEEK (8104) -100 

S252 DH=FEERK (8103) -100 

S254 C4=F (2)+D0:H4=F (1) +DH 

sere? RETURN 

So00O FORIJ=OTOW1-1:sFORE=OTOHI—-1sFPORES140 
t+ JtkhKK7, ACI, RK) NEXT: NEXT 

SoO1 GOSUBSOOS 
SolO POKE11, 94: FORE12, 29: X=USR(X) sFPOKE! 
1, Os PORE LS, 253 

5685 IFNG=1 THENRETURN 

2687 NH=O:sNC=0 

F490 FORQ=755357T07650: IFFEER (Q) =1 THENNH= 
NH+ 1 

S700 IFFPEEK (Q) =2THENNC=NC+1 

S710 NEXT 

8750 N=755S:FORX=OTOHI-1sFORY=OTO7:ACY, 
X) =PEEK (N) :N=N+1 

w7og IFACY,X) =OTHENACY, X) =3 

3740 NEXTY:NEXTX 

S800 RETURN 

9000 REM 

9020 GH=1:GC=2:BR=3:BC=4: TCHS: BH=o: TH=7: 


RETURN 
11000 PRINTCHRS (1.5) " Xd owbl ks END 
x es 


11010 GOSUB1S8500: IFJ=127THENGOSUB1 2000; 
GOTOL1L000 

11020 PRINT: RUN4 

12000 FORJ=OTOW1-1:FORK=OTOH1-1 

12010 LS=PEEK (8140+0+K%7) sPOKES140+7+x 
7, ACT, HAG, K) ES 

12020 NEXT:NEXT 


12025 PRINTCHRS (12) " QO“LD BOARD 


12030 GOSUBZOO 

2040 FORJ=OTOWL—-1:FORK=OTOH1—1 

S050 LS=#PEEK (B140+0+K%7) :FOKES140+I+Kx 
7,063, KF) 200, K) =L3 

12060 NEXT:NEXT 

12070 X=USR(X) 1 [FFEEK (S31) =127THENL 2090 


& 
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12080 GOTOL2070 

12090 FRINTCHRS (12) " xXxXXCURRENT ROARDK* 
x "ss GOSUBZOOs RETURN 

13000 X=O:FORIJ=17TO04: X=XxX+l 

LGOlL NEXTe STOP 

14000 REM 

14010 GOSUBIS900:FPRINTCHRS (13) "MOVE, "A 
Le eS 

14015 GOSUBIOO 

149020 CX=HX:CY=HY 

14040 Ud=CxX-1:UK=CY-1 

14045 IFACUI, UE) < STHENPRINTCHRS (13) "TRY 

AGAIN! !!. "ss GOTOL4010 

14050 GOTOS16S 

17000 UL=FEERK (129) sU2=PEEK (130) sPOKE129 
sOSPOREISO, 2i2sUs=" "sFORU=1T07 

17010 Us=US+U$+" "SNEXT:FPOKE129,U1:sPOKE 
130, U2: RETURN 

18000 GOSUBIL7OOO 

189010 PRINT"ONE OR TWO FLAYERS? "; 

18020 GOSUBI8S00s IFI< 490RI -SOTHENILBO2O 

18025 LS=J-48sFPRINTCHRS (J) :PRINT:FPRINT: 
IFLS=1 THENCF=1 

IBO31 PRINT"FREE RUNNING?Y" : GOSUBISS00sF 
RINT:PRINTs TF U< ¢:89THENIT S035 

1BOSS A=1LEFPRINT"MAX. ANIMAL ENTRY?" :GOS 
UBR1L8500: AA=J-48 

18034 FPRINT:FPRINT: AX=INT (.S+AA/2) 

18035 TFLS=2THENINFUT"NAME, PLAYER 1"sA 
if: INPFUT"NAME, PLAYER 2" ;ASS 

18036 IFA=1THENIS0460 

18037 ALS=LEFTS$(A1$, 7) sASS=LEFTS# (ASH, 7) 

18040 PRINT:PRINT"Take turns separately 
? "ss GOSUBIBSOO 

18050 Lé="N"s TF J=8S9THENLS$="y" 

LGOSt. PRINT" “La 

180352 TFLé="N"ORLS=2THENIS8060 

18053 FRINTsPRINT:FPRINT"WANT FIRST MOVE 
? “3: GOSUBISS00 

18055 IFJ=89THEND9=1:FRINT"Y":GOTO1LB060 
180G7 PRINT N" 

18060 REM 

18070 FRINTsPRINT "Width and Height’? "; 
18980 GOSUBISS0O0: TFJ< SO00Rd -SSTHENL8O80 
18090 Wi=J-48:PRINTCHRS(J)",'"'s 

18190 GOSUBRIS&SO00: IFJ< S0O0RJ +SSTHENIS1O0O 
18110 Hi=JI-48:FRINTHI 

18200 GOSUBI 7900: RETURN 

198500 POKE11,9OsPORELS, 253s X=USR (CX) s:J=PE 
ER (S31) sRETURN 

18900 PRINTCHREI13)" 

"ss RETURN 

25000 POKE133, 0: POKRE134, 2 

2a022 FORQ= 8105 TO 8113 :sREADM: FOKEO,M 
2 NEXTO 

evvtet DATAS, O04 152,8,190,16,17,18 

27904 FORO= 7424 TO 7345 :READM: POKEQ,M 
:NEXT® 

2/006 REM1LZ. 2 11,°4 

27908 DATA1I69, 100,141,167, 31,141,168, 31 
WO on Lote tos, 163,31, 202 

27910 DATAZOS, 250, 160,9,190, 168,231,189, 
Bot oO ee Agel 1/0, 202, 208,55 

27012 DATAL3SS, 164,21, 208,6, 202, 208,46, 235 
SedOdeole coos 166,31, 136,208 

27014 DATASZS7, 1709, 240, 22, 201, 200, 240, 50 
Pi fy 166,51, 201,35, 249, 42,201 

27016 DATA4, 240, 38, 222,166, 51,169,9, 240 
gig Doan LOg Od Lg hg el 

27918 DATAZ4SS, 162,2,173,164, 31,205,165, 
o1,48, 1,202, 208, 8, 169,80 

27920 DATAI41, 24,29, 76,9, 29, 254,166, 31, 
138, 17/25 24, 295153, 120027 

27922 DATALZNG, 24,29, 240, 3476584 295 9G, 36 
27024 RETURN 


CLASSIFIED ADS 


XNOTEX CLASSIFIED ADS ARE $7.95 FOR UP 
TO 4 40 CHARACTER LINES. #2.350 FOR EACH 
ADDITIONAL LINE. 


MEMORY INCLUDING 
INCLUDED. 
om S480 


FOR SALE O81 C2rFy Gh 
CASSETTE. FROGRAMS ALSO 
#350.00 CALL (S13) 62 


FOR GALE C4F IN EXCELLENT COND, 
IMPROVED CASSETTE INFUT (100% LOAD AND 
SAVE WITH NO NOISE ON THE MONITOR). 
SWITCH SELECTABLE BAUD RATE. ALSO 
INCLUDED ARE: AARDVARK Sk RARE BOARD 
PLENTY OF FREE SOFTWARE, ALL BACK ISSUES 


OF THE AARDVARK JOURNAL. ALL FOR ONLY 
$750 

MALL GARY VOGEL (S313) 288-3517 

FOR SALE: OSI C2-4P (4k) IN "LIKE NEW" 
COND. sCOMPLETE WITH ALL DOCUMENTATION 
AND SEND INQUIRIES TO: 0D. MONTALVO 215 
E. 197TH ST #33, NEW YORE, NY 10458 


FOR SALE: SOS BOARD, CPU WITH FLOPFY 
INTERFACE AND CASSETTE INSTRUCTIONS. 


UPGRADE TO DISK AT HALF THE COST $150 
KXWARNING KX WHEN FHONING IN 
GUARANTEE 


~ 


1319 N. 
OR 


GR BREST OFFER. CONTACT LES CAIN, 
16TH GRAND JUNCTION, CO, 80501 


(303) 243-4536 


FOR SALE: CIF MODEL 
INSTALLED ON BOARD, 
HMYLAND (€703) 936-7218 


et 
$300. 


W/8k.. 
PHONE 


FOR SALE: C2-8k., 12" MONITOR, TAPE 
RECORDER, GAMES, BOOKS $425.00 PHONE: 
BAKKER (313) 669-8477, BELLEVILLE 
MICHIGAN 


“ae 


FOR SALEs C4F CASSETTE COMPUTER IN 
ORTGINAL CARTON. AUDIO AMPLIFIER AND A 
FEW FROGRAMS INCLUDED. WILL SELL WITH 
OLD BRW MONITOR $625 OR W/O $575, PHONES 


DAVID KOCH (216) 492-4461 


FOR SALEs USED CASSETTE TAPES C-10 AND 
C-20 (NO CHOICE) $,.35 EACH. NO REFUNDS. 
CONTACT AARDVARK. 

FOR SALE: OSI S73 BOARD (EPROM BURNER) 
ASSEMBLED, USED. FOR 48-PIN BACKFPANE 
(O2/4/8F), SOFTWARE ON S&S" Disk. 
$100.00 CONTACT AARDVARK, 


ORDERS AFTER 4:00 P.M., THERE IS NO 


IT WILL BE PROCESSED OR EVEN RECEIVED. 


SOMETIMES THE 


ANSWERING MACHINE DOES NOT RECEIVE THE FULL MESSAGE, AND SOMETIMES WE 


CANNOT READ RODGER*S WRITING! 
82 OO A.M, AND 4:00 P.M.. 
JUDY & CYNDI. ae 

an 


vv 


4 


/ 


ea 


AARDVARK 


TECHNICAP SER VICES 
2352 South Co 
Walled Lake, MI 48088 © 


SOQ 


> ie 


ee, Ni. SHC} . 
RELL INmAc 
LL TNGH ep 
We, Sosa 


2 


PLEASE CALL BETWEEN THE HOURS OF 


8 


TO INSURE CORRECT ORDER PLACEMENT. THANK YOU 


(313) 669-3110 
FASPZRN STANDARD 


7Y AG 
i IME 


BULK RATE 
U. S. POSTAGE 


PAID 


WALLED LK.,MI. 
Permit No. 5 


0 


